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; 1 01 MODULE MWTUR1 ( 

3 ¢ § LANGUAGE , (OL 13839) » 

: Z ? {DENT = 'v04- 

: 9 008 BEGIN 

ae 007 | | 

: 4 si ' i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneteeteeeteenreeeeeneeeeeeeneneeeneee 
: :* - 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
“ae |b 0011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \¢ B86 1 - ALL RIGHTS RESERVED. : 
: 14 0014 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bae | 0015 1 !* ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH THE * 
. 7. 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. oF 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i sit } :* TRANSFERRED. * 
; ; * 
3 $) bos) 1 !* THE INFORMATION IN THIS SOFTWARE IS SWBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 00 § 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Si O08? ! - CORPORATION. * 
Py : oa 
; 2&2 $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5; ef 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
SR: 0027 1 !« * 
; we 0028 1 !* * 
; $3 94 : Vee RARER EAA AERER ATER AAEAAAAAAAAEEAAEAAEREEREEREEEE 
: 31 0031 1 !++ 

: mR ite 1! : 

3 $2 008 1 ! FACILITY: MOUNT Utility Structure Level 1 

3 4 0034 1! 

; 2 0035 1 ! ABSTRACT: 

; = 0036 1! 

; i 0037 1! This module generates a window mapping the desired VBN from 

. me 0038 1! the supplied file header. This module is a direct crib from the 

; 0039 1! FCP module WITURN. When we get conditional compilation with different 
: r¢ Boes ! parameter files worked out, they should really be the same source. 

; 42 0042 1 | ENVIRONMENT: 

2 boa | i STARLET ti tem, including privileged syst i 

; ! operating system, including privileged system services 

; 645 boas = and Teeereor suet rout ines. ee ° of 

: 46 Bpe$ -E 

3; «647 047 1 !-- 

; | «648 0048 1! 

; | (649 ope? 1! 

: 20 on30 ! : AUTHOR: Andrew C. Goldstein, CREATION DATE: 7=-Dec-1976 14:38 

; 3g Ob¢ i MODIFIED BY: 

; 54 bez 1! V03-001 HHO0041 Hai Huang go-dyl 1904 

; 22 bee ! : Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32". 

; 57 0089 1! v02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 
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; $? 33 } GLOBAL ROUTINE TURN_WINDOW1 (WINDOW, HEADER, DESIRED_VBN, START_VBN) = 
. or 39 1 te¢ 

; S&S 98 1! 

: +4 B60 ! FUNCTIONAL DESCRIPTION: 

it oe 601 1! This routine scans the map area of the supplied file header 

- ; Beng 7% and builds retrieval pointers in the window until 

Bee 0603 1! (1) the entire header has been sganned, - 

: ie Boke ! (2) the first retrieval pointer in the window naps the desired VBN 
; ff obs 1 ! CALLING SEQUENCE: 

: a6 ait ; TURN_WINDOW (ARG1, ARG2, ARG3, ARG4) 

: 79 0609 1 ! INPUT PARAMETERS: 

: 80 0610 1! ARG1: address of window block 

5; 8 0611 1! ARG2: address of file header 

. & belg . 3 ARGS: desired VBN 

; & 0615 1! ARG4: starting VBN of file header 

; 36-84 0614 1! 

; 85 0615 1 ! IMPLICIT INPUTS: 

; 686 0616 1! NONE 

s 6 OO 0617 1! 

; 88 0618 1 ! OUTPUT PARAMETERS: 

5 89 0619 1! updated window 

s 0620 1! 

; 91 0621 1 ! IMPLICIT QUTPUTS: 

3 92 0622 1! NONE 

s 95 0623 1! 

3 94 0624 1 ! ROUTINE VALUE: 

; | (9S 0625 1! 1 

; | «696 0626 1! 

3 97 0627 1 ! SIDE EFFECTS: 

; «698 0628 1! NONE 

; #9 +594 1! 

; 100 0630 1 !-- 

3; 101 0631 1 

3 4 b636 BEGIN 

3; 10 063 

3: 104 0634 MAP 

: 105 0635 WINDOW : REF BBLOCK, ! pointer to window 

3 196 B686 HEADER : REF BBLOCK; ! pointer to file header 

: 108 $638 LOCAL 

: 109 6 VBN, !' VBN in scanning window 

: 110 640 COUNT ' retrieval pointer count 

» Ti 641 COUNTER, ! Loop counter 

: 116 § LBN ' retrieval pointer start LBN 
: 011 64 W_POINTER : REF BBLOCK, ! pointer to scan window 

: 114 644 M POINTER : REF BBLOCK, ' pointer to scan header map area 
3 132 ot? MAP_AREA : REF BBLOCK; ! pointer to start of header map area 
: 117 64 MACRO 

; 118 $68 WINDOW_MAP = (,WINDOW+WCBSC_MAP)2; !start of window map area 
3; 120 650 ! Scan the window looking for 

3; 121 0651 


the 
! starting VBN of the header. If it is contained within the window, truncate 
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! the window $9 that it maps exactly up to the start of the header. 
' If the starting VBN is not contained in the window, the entire window must be 
! discarded. However, if the desired VBN precedes the header start VBN, we 
i do nothing since the window is already best effort. 
W_POINTER = bee MAP; ! point to first retrieval pointer 
VEN = .WINDOW(WCBSC_STVBNI; ! get starting VBN of window 
IF 
BEGIN 
pave J FROM 1 TO .WINDOWCWCBSW_NMAP) 
IF .VBN + .W_POINTERCWCBS$W_COUNT] LSSU .START_VBN 
THEN BEGIN 
VBN = .VBN + .W POINTERCWCB$W_COUNTI; ! accumulate running VBN 
g POINTER = .W_POINTER + 6; ! and move to next pointer 
LSE gs ! VBN is in or precedes current pointer 
IF .VBN LSSU .START_VBN 
THEN 
BEGIN 
W_POINTERCWCB$W_COUNT] = .START_VBN - .VBN; 
W POINTER = .W_POINTER + 6; ' bump the pointer 
WINDOWCWCBSW_NAAP) = .J; ! truncate the window 
EXITLOOP 0; 
ELSE 
. EXITLOOP -1; ! precedes the window 
END 
THEN ! header VBN is not in window 


BEGIN 
IF .DESIRED VBN LSSU .START_VBN 
AND »START_VBN GTRU 1 


RETURN 1 ! Leave it alone 
BEGIN 
WINDOWLWCBSW_NMAP) = 0; ! flush the window 
WINDOWLWCBSL_STVBN] = .START_VBN; : : 
g POINTER = QINDOW_MAP; ! point to first pointer 
END; ; 
! The window is now suitably initialized. Set up necessary pointers. 
Now scan the map area, extracting retrieval pointers. 
MAP_AREA = .HEADER + .HEADERCFHISB_MPOFFSETJ*2; ! point to map area 
M_POINTER = .MAP_AREA + FM1SC_POINTERS; ! point to start of pointers 
BECR COUNTER FROM .MAP_AREACFM1$B_INUSEJ/2 TO 1 DO 
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3 
MWTUR1 1bese 
v04-000 14-Se 


ox 
> | 
ow 


0 
1 COUNT = .M potat ene te lse om? +1; ' fo rete tevet pointer count 
81 1 BN = .M_POINTERLFM1$W 138. ow ord 
Be 1 LBN<16,85 = “A-POINTERCFR} 4 NALGHLBN): and high. sneer LBN 
a M_POINTER = .M“POINTER + ! update map pointer 
1 ! See if this set of blocks is contiguous with the preceding (in the 
1 window). If so, merge them. 
1 
1 IF .WINDOWCWCBSW_NMAP) NEQ 0 on it if peoweent yw 
AND .W_POINTER ucesu. peevenend oW heise PREVCON] EQL .LBN 
AND .W- POINTER PREVCOUNT Sut SSU 655 
THEN W  POIRTERCUCE y CBREUCOUNTS = .W * POINTERCUCBSH. PRES COUNT! + COUNT 


Bult¢ anew retrieval pointer. If the window is full, rag the 
entries ~ 4 by one. If this would cause the pointer mapping t 
desired VBN to fail reef the top, we are done. 


ELSE 
IF (.WINDOWCWCBSW_NMAPJ+1)*6 + WCBSC_LENGTH 
G6TRU -WINDOWCOCBSW_SIZEJ 
BEGIN 
IF - WINDOWCWCBSL_ STVBN) + .WINDOWCWCBSW_P1_COUNT] GTRU .DESIRED_VBN 
THEN EXITLOOP; 


WINDOW{LWCBSW_NMAP] = .WINDOWLWCBSW_NMAP) - 
dial Naeem STVBN] = .WINDOWCWCBSC STVBN) He "-WINDOVCUCESU, P1_COUNT); 
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1 4 ( WIRDOWEUCBSw aay Cetin WINDOW_MAF+6, WINDOW_MAP 

1 4 ‘ed POINTER = .W_POINTER 

} 2, 

; Finally build the pointer and count it. 

16 74 ; 

17 74 W_POINTERCWCBSW_ COUNT) = . COUNT; 

18 74 7 “POINTER WCBSL pion i LBN: 

19 74 POINTER = Aginre 

20 75 UINDOWLUCBSW. NRAP RVINDOWCWCBSU. NMAP] + 1; 

21 a END; 

$§ 75 END; ! end of header scan loop 

24 75 

$2 ie RETURN 1; \ 

27 75 END; “end of routine TURN_WINDOW1 
-TITLE MWTUR1 
- IDENT \V04-000\ 


-PSECT SCODES,NOWRT,2 
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OFFC 00000 
5 04 ¢ 
3 9s A 66 g 
, 2S Bie 
Ba MB ie 
54 6 i O17 
51 10 55 4 18 
BS 
25 $6 3C 000 
5 Q C¢O 000 
51 d2 01 Bp 8 
OB JE 00028 
52 $8 25 0020 
50 2 ¢0 000 
56 04 ¢O 000 
11 (11 sit) 
51 50 D1 000 
10 if 00038 
86 51 50 A35 00030 
56 04 CO 00041 
69 53 BO 00044 
18 11 00047 
D5 53 54 F3 00049 
51 Oc AC 01 00040 
05 i€ Booey 
01 51 D1 00053 
7A 1A Be be8 
69 B4 0005 
2c AB 51 00 Bp bee 
56 6E 4 O05E 
51 08 AC 00 00061 
50 01 Al 9A 00065 
30 6140 3 0069 
57 OA AO 9E BR90 
51 08 AO 9A 00071 
04 AE 51 02 Cc? 00075 
04 AE 06 OOO7A 
76 11 00070 
5B 01 A? QA 443 
5 6 Ht 
5A 02. A 08 
5A 08 10 7 6F 089 
9 B> 000 
ie 0 
3° FA Ab 36 9 
0 FC AB OC 
5A 50 01 9A 
16 12 00090 
28 FA Ab 26 OF 
P) C A3 
00010000 =8F D1 Aé 
6 IE AD 
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4 
-VBN, RI 


W POINTER), R2 
R2 


’ 
. 


(W_POINTER)+, R2 
a, W_POINTER 
VBN, R1 
4$ 
VBN, R1, (W_POINTER)+ 
#4, W_POINTER 
J, (RO) 
“a. 1. 6 
DeESIRED_vN, R1 
Ri, #1 
4 (RB) 
W_POINTER 
DER, ~R1 
0 
ROI. MAP_AREA 
>), M_POIRTER 
MAP_ARER), R1 
pe 
TER 
OINTER), COUNT 
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T 

M_POINTER), LBN 
OINTER)+, #16, #8, LBN 
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-6(W_POINTER), RO 
COUNT 

RO, #65536 
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myTURY 1$-Sep-1964 01:26:50 ARCH Btise32 v4.0c74z page 7. 
2 


FA AG iB A0 IM! appu2 ay -6(W_POINTER) : 072 : 
i 53 8$: MOVZWL RO : 
cs 8 MULL i fo : 

50 08 As 1 i : f “#16, 8(RB), RO : 

50 90 8 f 6 a0(sP), : 
C AaB OC ¢ ADDL2 44(R8) F 
oc AC 39 51 00¢ CHPL OR 88, VBN : 
69 87 0000 DECW = (RO) 0738 ; 
5 00 : a $55 MOVZWL a0(SP), RO 0739 3 
2c COA ¢ 000 ADDL2 RO, 44(R8) ; 
50 69 3¢ 000D MOVZWL (R95), RO 0740 ; 
50 06 ce OOE MULL2 #6, RO : 
00 BE 36 AB 8 O00E MOVC3 RO, 54(R8), a0(SP) ; 
56 06 ce OE SUBL2 #6, W_POINTER 0741 r 
ae B 80 OOOED 108 MOVW COUNT; (W_POINTER)+ 0747 : 
a6 5A D0 000F MOVL (W_POINTER) + 0748 ; 
69 B6 000F INCW = (ROS 0750 ; 
86 06 AE FS O00F 11$:  SOBGTR COUNTER, 7$ 0707 ; 
50 01 DO 000F9 12$:  #MOVL #1, RO 0755 ; 
04 000F RET 0757 


; Routine Size: 253 bytes, Routine Base: $CODE$ + 0000 


3 $38 0758 1 END 

: 229 0759 O ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: S$CODES 253 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

Beas fC ey eee ae 2 ae Symbols -<------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 24 0 1000 00:02.0 
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3 
MWTURI 16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 P 
v04=000 1o-808- 1882 VS:ZSy We RhS FERS MbctT Secamururt.es20h%” «25 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:MWTUR1/OBJ=OBJ$:MWTUR1 MSRC$:MWTUR1/UPDATE=(ENHS$:MWTUR1) 
Size: 253 code + 0 data bytes 
un Time: 8 14.7 
he Neo Rs-? 
Lines/CPU Min: 1 ¢ 
Svea Ale Pi 3008 


Memor 7 U8 153 pages 
Compi ation Complete 
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